inherited frmEmpresas: TfrmEmpresas
  Left = 415
  Top = 184
  Caption = 'Cadastro de Empresas'
  ClientHeight = 569
  ClientWidth = 772
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 532
    Width = 772
    inherited Bitpesquisa: TBitBtn
      TabOrder = 6
    end
    inherited Bitfecha: TBitBtn
      TabOrder = 5
    end
  end
  inherited Panel2: TPanel
    Width = 772
    Height = 532
    inherited Panel3: TPanel
      Width = 770
      Caption = 'Empresas'
      inherited GroupBox1: TGroupBox
        Left = 691
      end
    end
    inherited Panel4: TPanel
      Width = 770
      Height = 490
      object Label12: TLabel [0]
        Left = 13
        Top = 9
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label13: TLabel [1]
        Left = 53
        Top = 9
        Width = 61
        Height = 13
        Caption = 'Razao social'
      end
      object Label6: TLabel [2]
        Left = 347
        Top = 10
        Width = 68
        Height = 13
        Caption = 'Nome fantasia'
      end
      object Label2: TLabel [3]
        Left = 482
        Top = 45
        Width = 27
        Height = 13
        Caption = 'Bairro'
      end
      object Label1: TLabel [4]
        Left = 14
        Top = 45
        Width = 46
        Height = 13
        Caption = 'Endere'#231'o'
      end
      object Label3: TLabel [5]
        Left = 13
        Top = 83
        Width = 19
        Height = 13
        Caption = 'Cep'
      end
      object Label14: TLabel [6]
        Left = 98
        Top = 83
        Width = 33
        Height = 13
        Caption = 'Estado'
      end
      object Label4: TLabel [7]
        Left = 399
        Top = 83
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object Label9: TLabel [8]
        Left = 582
        Top = 124
        Width = 17
        Height = 13
        Caption = 'Fax'
      end
      object Label5: TLabel [9]
        Left = 385
        Top = 124
        Width = 24
        Height = 13
        Caption = 'Fone'
      end
      object Label15: TLabel [10]
        Left = 202
        Top = 123
        Width = 87
        Height = 13
        Caption = 'Inscri'#231#227'o Estadual'
      end
      object Label16: TLabel [11]
        Left = 14
        Top = 121
        Width = 27
        Height = 13
        Caption = 'CNPJ'
      end
      object Label8: TLabel [12]
        Left = 86
        Top = 159
        Width = 25
        Height = 13
        Caption = 'Email'
      end
      object Label7: TLabel [13]
        Left = 14
        Top = 159
        Width = 65
        Height = 13
        Caption = 'Data abertura'
      end
      object Label10: TLabel [14]
        Left = 14
        Top = 199
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
      end
      inherited DBGrid1: TDBGrid
        Top = 298
        Width = 762
        Height = 169
        Hint = 
          'Clique na coluna para habilitar alterar e excluir ou no titulo p' +
          'ara ordenar'
        TabOrder = 22
      end
      inherited SbHints: TStatusBar
        Top = 467
        Width = 762
      end
      object EdtEmpCodigo: TDBEdit
        Left = 14
        Top = 23
        Width = 32
        Height = 21
        Hint = 'C'#243'digo da Empresa'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnEnter = EdtEmpCodigoEnter
        OnExit = EdtEmpCodigoExit
      end
      object EdtEmpRazSoc: TDBEdit
        Left = 53
        Top = 23
        Width = 291
        Height = 21
        Hint = 'Raz'#227'o Social'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_RAZSOC'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnEnter = EdtEmpRazSocEnter
        OnExit = EdtEmpRazSocExit
      end
      object EdtEmpFantas: TDBEdit
        Left = 347
        Top = 24
        Width = 410
        Height = 21
        Hint = 'Nome Fantasia'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_FANTAS'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnEnter = EdtEmpFantasEnter
        OnExit = EdtEmpFantasExit
      end
      object EdtEmpBairro: TDBEdit
        Left = 482
        Top = 59
        Width = 275
        Height = 21
        Hint = 'Bairro'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_BAIRRO'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnEnter = EdtEmpBairroEnter
        OnExit = EdtEmpBairroExit
      end
      object EdtEmpEndere: TDBEdit
        Left = 14
        Top = 59
        Width = 462
        Height = 21
        Hint = 'Endere'#231'o '
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_ENDERE'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnEnter = EdtEmpEndereEnter
        OnExit = EdtEmpEndereExit
      end
      object EdtEmpCodPos: TDBEdit
        Left = 13
        Top = 97
        Width = 76
        Height = 21
        Hint = 'C.E.P (C'#243'digo de Endere'#231'amento Postal) '
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_CODPOS'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnEnter = EdtEmpCodPosEnter
        OnExit = EdtEmpCodPosExit
      end
      object EdtEmpEstado: TDBEdit
        Left = 98
        Top = 97
        Width = 34
        Height = 21
        Hint = 'C'#243'digo do Estado'
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_ESTCOD'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnEnter = EdtEmpEstadoEnter
        OnExit = EdtEmpEstadoExit
      end
      object BtnEstado: TBitBtn
        Left = 133
        Top = 97
        Width = 21
        Height = 21
        Hint = 'Pesquisa Estados (UF) cadastrados'
        Caption = '...'
        Enabled = False
        TabOrder = 7
        TabStop = False
        OnClick = BtnEstadoClick
      end
      object EdtEmpFax: TDBEdit
        Left = 581
        Top = 136
        Width = 176
        Height = 21
        Hint = 'N'#250'mero do Fax '
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_FAX'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 15
        OnEnter = EdtEmpFaxEnter
        OnExit = EdtEmpFaxExit
      end
      object EdtEmpFone: TDBEdit
        Left = 384
        Top = 136
        Width = 192
        Height = 21
        Hint = 'N'#250'mero do telefone '
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_FONE'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 14
        OnEnter = EdtEmpFoneEnter
        OnExit = EdtEmpFoneExit
      end
      object EdtEmpInsEst: TDBEdit
        Left = 202
        Top = 136
        Width = 175
        Height = 21
        Hint = 'Inscri'#231#227'o ou Carteira de Identidade'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_INSEST'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 13
        OnEnter = EdtEmpInsEstEnter
        OnExit = EdtEmpInsEstExit
      end
      object EdtEmpCnpj: TDBEdit
        Left = 14
        Top = 135
        Width = 183
        Height = 21
        Hint = 'C.P.F. ou C.N.P.J '
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_CNPJ'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 12
        OnEnter = EdtEmpCnpjEnter
        OnExit = EdtEmpCnpjExit
      end
      object EdtEmpEmail: TDBEdit
        Left = 88
        Top = 173
        Width = 287
        Height = 21
        Hint = 'E-mail'
        AutoSize = False
        CharCase = ecUpperCase
        Ctl3D = True
        DataField = 'EMP_EMAIL'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 17
        OnEnter = EdtEmpEmailEnter
        OnExit = EdtEmpEmailExit
      end
      object EdtEmpAbertura: TDBEdit
        Left = 15
        Top = 173
        Width = 68
        Height = 21
        Hint = 'Data de abertura da empresa '
        AutoSize = False
        CharCase = ecUpperCase
        DataField = 'EMP_DATABE'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 16
        OnEnter = EdtEmpAberturaEnter
        OnExit = EdtEmpAberturaExit
      end
      object DBRG_Tipo: TDBRadioGroup
        Left = 382
        Top = 159
        Width = 129
        Height = 36
        Hint = 'Informa se a empresa '#233' filial ou matriz'
        Caption = 'Tipo da Empresa'
        Columns = 2
        DataField = 'EMP_MATFIL'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Filial'
          '&Matriz')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 18
        Values.Strings = (
          'F'
          'M')
        OnExit = DBRG_TipoExit
      end
      object DBRG_Ativa: TDBRadioGroup
        Left = 516
        Top = 159
        Width = 108
        Height = 36
        Hint = 'Informe se a empresa est'#225' ativa'
        Caption = 'Ativa'
        Columns = 2
        DataField = 'EMP_ATIVA'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Sim'
          '&N'#227'o')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 19
        Values.Strings = (
          'S'
          'N')
      end
      object DBRG_Precos: TDBRadioGroup
        Left = 630
        Top = 159
        Width = 127
        Height = 36
        Hint = 
          'Informe se os pre'#231'os s'#227'o os mesmos da matriz ou se s'#227'o pr'#243'prios ' +
          'da filial'
        Caption = 'Pre'#231'os'
        Columns = 2
        DataField = 'EMP_TIPPRE'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Matriz'
          '&Pr'#243'prios')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 20
        Values.Strings = (
          'M'
          'P')
        OnExit = DBRG_PrecosExit
      end
      object DBMEmpObserv: TDBMemo
        Left = 14
        Top = 213
        Width = 491
        Height = 78
        Hint = 'Observa'#231#245'es diversas'
        DataField = 'EMP_OBSERV'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 21
        OnEnter = DBMEmpObservEnter
        OnExit = DBMEmpObservExit
      end
      object DBEdit1: TDBEdit
        Left = 155
        Top = 97
        Width = 241
        Height = 21
        TabStop = False
        AutoSize = False
        CharCase = ecUpperCase
        Color = clBtnFace
        Ctl3D = False
        DataField = 'EMP_ESTNOME'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = False
        TabOrder = 8
      end
      object DBEdit2: TDBEdit
        Left = 472
        Top = 97
        Width = 285
        Height = 21
        TabStop = False
        AutoSize = False
        CharCase = ecUpperCase
        Color = clBtnFace
        Ctl3D = False
        DataField = 'EMP_CIDNOME'
        DataSource = DtSrc
        Enabled = False
        ParentCtl3D = False
        TabOrder = 11
      end
      object edtCidade: TDBEdit
        Left = 400
        Top = 97
        Width = 49
        Height = 21
        Hint = 'C'#243'digo da Cidade'
        CharCase = ecUpperCase
        DataField = 'EMP_CIDCOD'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        OnEnter = edtCidadeEnter
        OnExit = edtCidadeExit
      end
      object BitBtn1: TBitBtn
        Left = 449
        Top = 97
        Width = 21
        Height = 21
        Caption = '...'
        Enabled = False
        TabOrder = 10
        TabStop = False
        OnClick = BitBtn1Click
      end
      object DBRadioGroup1: TDBRadioGroup
        Left = 512
        Top = 208
        Width = 245
        Height = 83
        Hint = 
          'Informe se os pre'#231'os s'#227'o os mesmos da matriz ou se s'#227'o pr'#243'prios ' +
          'da filial'
        Caption = 'Regime Tribut'#225'rio'
        DataField = 'EMP_REGIMETRIB'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&1 - Simples Nacional'
          '&2 - Simples Nacional - Excesso de Receita'
          '&3 - Regime Normal')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 24
        Values.Strings = (
          '1'
          '2'
          '3')
        OnExit = DBRG_PrecosExit
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Empresas
    Left = 104
    Top = 408
  end
  inherited DtSrcDBGrid: TDataSource
    Left = 104
    Top = 360
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    Left = 209
    Top = 265
  end
  object DtsCidades: TDataSource
    DataSet = SQLC_Cidade
    Left = 473
    Top = 385
  end
  object SQLC_Cidade: TSQLClientDataSet
    CommandText = 
      'select * from CIDADES where cid_estcod =:pest order by cid_descr' +
      'i ;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pest'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 291
    Top = 424
    object SQLC_CidadeCID_ESTCOD: TStringField
      FieldName = 'CID_ESTCOD'
      Required = True
      FixedChar = True
      Size = 2
    end
    object SQLC_CidadeCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      Required = True
      FixedChar = True
      Size = 3
    end
    object SQLC_CidadeCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 35
    end
  end
  object SQLC_Empresas: TSQLClientDataSet
    CommandText = 'select * from '#13#10'    EMPRESAS'#13#10'where '#13#10'   emp_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    OnCalcFields = SQLC_EmpresasCalcFields
    DBConnection = DtmGeral.ConexaoBanco
    Left = 203
    Top = 419
    object SQLC_EmpresasEMP_CODIGO: TSmallintField
      DisplayLabel = 'CODIGO'
      FieldName = 'EMP_CODIGO'
      Required = True
    end
    object SQLC_EmpresasEMP_RAZSOC: TStringField
      DisplayLabel = 'RAZAO SOCIAL'
      FieldName = 'EMP_RAZSOC'
      Required = True
      Size = 40
    end
    object SQLC_EmpresasEMP_FANTAS: TStringField
      DisplayLabel = 'NOME FANTASIA'
      FieldName = 'EMP_FANTAS'
      Required = True
      Size = 40
    end
    object SQLC_EmpresasEMP_ENDERE: TStringField
      DisplayLabel = 'ENDERE'#199'O'
      FieldName = 'EMP_ENDERE'
      Size = 60
    end
    object SQLC_EmpresasEMP_BAIRRO: TStringField
      DisplayLabel = 'BAIRRO'
      FieldName = 'EMP_BAIRRO'
      Size = 35
    end
    object SQLC_EmpresasEMP_CIDCOD: TStringField
      DisplayLabel = 'CODIGO CIDADE'
      FieldName = 'EMP_CIDCOD'
      Required = True
      Size = 3
    end
    object SQLC_EmpresasEMP_ESTCOD: TStringField
      DisplayLabel = 'ESTADO CODIGO'
      FieldName = 'EMP_ESTCOD'
      Required = True
      Size = 2
    end
    object SQLC_EmpresasEMP_CODPOS: TStringField
      DisplayWidth = 11
      FieldName = 'EMP_CODPOS'
      EditMask = '00000\-000;0;_'
      Size = 11
    end
    object SQLC_EmpresasEMP_FONE: TStringField
      DisplayLabel = 'FONE'
      FieldName = 'EMP_FONE'
      Size = 30
    end
    object SQLC_EmpresasEMP_FAX: TStringField
      DisplayLabel = 'FAX'
      FieldName = 'EMP_FAX'
      Size = 30
    end
    object SQLC_EmpresasEMP_INSEST: TStringField
      DisplayLabel = 'INS.ESTADUAL'
      FieldName = 'EMP_INSEST'
    end
    object SQLC_EmpresasEMP_EMAIL: TStringField
      DisplayLabel = 'EMAIL'
      FieldName = 'EMP_EMAIL'
      Size = 40
    end
    object SQLC_EmpresasEMP_OBSERV: TMemoField
      DisplayLabel = 'OBSERVACOES'
      FieldName = 'EMP_OBSERV'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_EmpresasEMP_DATABE: TDateField
      DisplayLabel = 'DATA ABERTURA'
      FieldName = 'EMP_DATABE'
      Required = True
    end
    object SQLC_EmpresasEMP_ATIVA: TStringField
      DisplayLabel = 'ATIVA'
      FieldName = 'EMP_ATIVA'
      Required = True
      Size = 1
    end
    object SQLC_EmpresasEMP_TIPPRE: TStringField
      DisplayLabel = 'PRE'#199'O'
      FieldName = 'EMP_TIPPRE'
      Required = True
      Size = 1
    end
    object SQLC_EmpresasEMP_MATFIL: TStringField
      DisplayLabel = 'MATRIZ OU FILIAL'
      FieldName = 'EMP_MATFIL'
      Required = True
      Size = 1
    end
    object SQLC_EmpresasEMP_ESTNOME: TStringField
      FieldKind = fkCalculated
      FieldName = 'EMP_ESTNOME'
      Size = 40
      Calculated = True
    end
    object SQLC_EmpresasEMP_CIDNOME: TStringField
      FieldKind = fkCalculated
      FieldName = 'EMP_CIDNOME'
      Size = 40
      Calculated = True
    end
    object SQLC_EmpresasEMP_CNPJ: TStringField
      FieldName = 'EMP_CNPJ'
      Size = 18
    end
    object SQLC_EmpresasEMP_PESSOAIDF: TIntegerField
      FieldName = 'EMP_PESSOAIDF'
    end
    object SQLC_EmpresasEMP_ENDNUMERO: TStringField
      FieldName = 'EMP_ENDNUMERO'
      Size = 10
    end
    object SQLC_EmpresasEMP_NFECAMINHO: TMemoField
      FieldName = 'EMP_NFECAMINHO'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_EmpresasEMP_REGIMETRIB: TSmallintField
      FieldName = 'EMP_REGIMETRIB'
    end
  end
end
